include(/mnt/Datos/Facultad/Latex/circuit_macros/pgf.m4)
include(/mnt/Datos/Facultad/Latex/circuit_macros/libcct.m4)
   
.PS 
cct_init
  
elen = 0.75
Origin: Here
	source(up_ elen,AC); llabel(,v_g,)
	resistor(right_ elen); rlabel(,50~\Omega,)
	diode(right_ elen/2); rlabel(,1N4007,)
	line right_ 0.25
	{
		dot
		resistor(down_ to (Here,Origin)); llabel(,R_L,); ground
	}
	line right_ elen; b_current(i_o)
	capacitor(down_ Here.y-Origin.y); rlabel(,C,); llabel(+,v_o,-)
	line to Origin

.PE

